home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Editing_Zones.AMOS / Editing_Zones.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-28  |  1.7 KB  |  49 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*           Editing Zones           * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  12. Resource Bank 16
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 8
  15. Palette ,,,,$414,$858,$C9C,$EAE
  16. Wait Vbl : Paper 0
  17. A$=A$+"BUtton   0,292,180,56,14,0,0,1;[UNpack 0,0,BP49+;PR 8,4,'EDIT',8;][BQ;]"
  18. A$=A$+"RUn      0,7;"
  19. A$=A$+"EXit;"
  20. B$=B$+"SetVar   1,'Example of Interface editing Zones';"
  21. B$=B$+"SetVar   2,'   Enter name:';"
  22. B$=B$+"SetVar   3,'Enter address:';"
  23. B$=B$+"SetVar   4,'    Enter age:';"
  24. B$=B$+"SIze     520,120;"
  25. B$=B$+"BAse     SW SX-2/,SH SY-2/;"
  26. B$=B$+"SAve     2;"
  27. B$=B$+"BOx      0,0,1,SX,SY;"
  28. B$=B$+"POutline 1VACX,10,1VA,0,14;"
  29. B$=B$+"PRint    24,32,2VA,9;"
  30. B$=B$+"LIne     XB7+,YA4-,16,320;"
  31. B$=B$+"EDit     1,XA8+,YA4+,20,20,0,5,11;"
  32. B$=B$+"PRint    24,64,3VA,9;"
  33. B$=B$+"LIne     XB7+,YA4-,16,480;"
  34. B$=B$+"EDit     2,XA8+,YA4+,40,40,0,5,11;"
  35. B$=B$+"PRint    24,96,4VA,9;"
  36. B$=B$+"LIne     XB7+,YA4-,16,190;"
  37. B$=B$+"DIgit    3,XA8+,YA4+,3,0,0,5,11;"
  38. B$=B$+"BUtton   0,SX80-,SY24-,56,14,0,0,1;[UNpack 0,0,BP47+;PR 4,4,'Return',12;][BQ;]"
  39. B$=B$+"KY       13,0;"
  40. B$=B$+"RUn      0,3;"
  41. B$=B$+"EXit;"
  42. Dialog Open 1,B$
  43. X=Dialog Run(1)
  44. Locate 0,11 : Centre Rdialog$(1,1)+" resides at:-"
  45. Locate 0,13 : Centre Rdialog$(1,2)
  46. Locate 0,15 : Centre "And is only"+Str$(Rdialog(1,3))+" years old"
  47. Dialog Close 
  48. X=Dialog Box(A$)
  49. Edit